TYPES OF ANTICIPATED ACTIVITY 



Very Low Activity 

1 (Relaxation / Minimal Physical Exertion) 



2 



Low Activity 

(Heightened Awareness / Slight 
Physical Exertion) 



Low to Moderate Activity 

(Interaction / Higher Levels of Physical 
Exertion) 



Moderate to High Activity 

(Heightened Physical Activity) 



High Activity 

(High Levels of Physical Exertion / 
Frequent Interaction) 



Very High Activity 

D (Exercise & High Energy 
Activities) 
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AVAILABLE LIGHT / ALL SOURCES 

1 DARK 




3 



LOW LIGHT 



MODERATE LIGHT 



BRIGHT LIGHT 



VERY BRIGHT LIGHT 
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Figure 3 



ROOM EXPOSURE 



Southern Exposure 




Western Exposure 



Southeastern Exposure 



Northwestern Exposure 



Eastern Exposure 



Northern Exposure 



No Windows 









DESIRED SPATIAL EFFECTS 



1 



LARGE AND OPEN 



• :;Ji 
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Your Personal Room Color Profile 

Room Selected: T 

Your Favorite Color Family: 

Blue / Blue- Violet / Blue-Green q 

Yellow / Yellow-Green / Yellow-Orange Q 

Red / Red-Orange / Red- Violet Q 

Types of Anticipated Activity: 

Very Low Activity Q 

Low Activity Q 

Low- Moderate Activity O 

High - Moderate Activity CD 

High Activity Q 

Very High Activity Q 
Typical Room Occupancy: 

Solitary Q 

Couples O 

Family CD 

More Family Q 

Discussions / Meetings Q 

Parties / Large Groups CD 

Available Light /All Sources: 

Dark Q 
Low light CD 
Moderate CD 
Bright CD 
Very Bright CD 
Room Exposure: 

South o 
West Q 
Southeast CD 
Northwest CD 
East Q 
North CD 
No Exterior Exposure CD 
Desired Spatial Effect: 

Large and Open CD 
Large but Contained CD 
Small but Spacious CD 
Small and Cozy Q 
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SUMMARY OF LOGIC 
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1 . Select room to be decorated. 

2. Choose favorite Basic Color Family 

3. On a scale of 1 to 10, estimate the 
level of activity anticipated for this 
space. 

10 might indicate a 
recreational space where, 
for example, people might 
be shooting pool, dancing, 
exercising, etc. 1 might 
indicate a room for sleeping, 
reading, or simply 
meditating. 

4. Next, estimate the number of people 
that will typically use the room. 

10 would indicate large 
numbers of people; 1, 
solitary use such as a library 
or individual bedroom. 



5. Now estimate the amount of natural 
light available in the room with 5 
indicating no natural light, and 1 
indicating a large amount. 

6. Guage the approximate exposure of 
the room. 

7. Finally, consider spatial emphasis; 
how do you want to either enhance 
or overcome the room's inherent 
spatial limitations? Do you want the 
room to appear large and open, 
small and cozy, or somewhere in 
between? 



1 . Together, designer & client choose. 

2. Reduces number of columns to 26. 

3. Moves target indicator two columns 
in any given direction depending on 
the level of activity indicated by the 
customer. A ten would select the 
last two columns on the right in the 
direction of warmer colors; a three 
would select the 5 th and 6 th columns 
from the left boundary of the color 
family. 



4. Fixes the target indicator on the row 
with 10 being on Row 1, 9 on Row 2, 
8 on Row 3, etc. The target area is 
expanded four rows and four 
columns on each side from the 
intersection between the columns of 
step 3 and the target row chosen. 

5. A choice of 4or 5 moves the range to 
the top four rows of the target; 
choosing 3 to the middle four rows; 1 
or 2 to the bottom four rows. 

6. N or E corresponds to the warmest 
two columns; etc. 

7. The final eight choices are divided 
into quadrants, with each quadrant 
representing one of the four'spatial 
emphases. Small & cozy matches 
up with the warmest and darkest two 
of the eight colors, etc. 
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Figure 10A 



6949 05615 

EXPRESS MAIL NO. . 



Sheets - 1 

Private Sub Worksheet_Select ionChange ( ByVal Target As Excel .Range) 
End Sub 



a 

m 
\- 

y| 

m 

Q 
m 

o 
hi 



Figure 10B 
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Show splash screen 
UserForm2 . Show 

End Sub 
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^ .. activityLvi 

Dim noOccupants 

Dim lightLvi 

Dim exposeLvi As String 

Dim exposeNo 

Dim rowCenter 

Dim rowTop 

Dim rowBottom 

Dim colCenter 

Dim colLeft 

Dim colRight 

Dim rowCount 

Dim colCount 

Private Sub AboutButton__Click ( } 

About Info 
End Sub 

Private Sub ExitButton_Click { ) 
Application. Quit 

End Sub * 
Private Sub FindButt on_Cl ick ( } 

* Set color family 

Sheets("Color Chart") . Select 

If Color. Text - "Blue / Blue-Green / Blue-Violet Family" Then 

Range ("Blue") .Select 
Elself Color. Text = "Yellow / Yellow-Green / Yellow-Orange Family" Then 

Range ("Yellow") .Select 
Elself Color. Text = "Red / Red-Orange / Red-Violet Family" Then 

Range ("Red") .Select 

Else 

MsgBox "Input error, programs halts.", vbcritial + vbOKOnly, 

"Error!" 
Exit Sub 
End If 
Selection .Copy 
Sheets { "ColorPref ") . Select 
Range ("Al") .Select 
ActiveSheet . Paste 

1 Set activity and occupancy levels 
activityLvi = CInt (Activity . Text } 
noOccupants = CInt (Occupancy . Text ) 

1 Initialize counters 
rowCount = 0 
colCount = 0 

* Figure new range center 

rowCenter = Int(9 - activityLvi) 
rowTop = rowCenter - 2 
rowBottom = rowCenter + 2 
colCenter = Int(3.4 * noOccupants + 1.6) 
colLeft = colCenter - 4 
colRight = colCenter + 4 

elect cells and copy — > ActOcc tab 
For colNumber = colLeft To colRight 
colCount = colCount + 1 
For rowNurober = rowTop To rowBottom 
rowCount = rowCount + I 
Sheets ( "ColorPref") . Select 
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Cells (rowNumber, colNumber }. Select 

Sei ect i on . Copy 

Sheets ( "ActOcc") . Select 

Cells [rowCount, colCount) .Select 

ActiveSheet . Paste 

Next 

rowCcont ~ C 

Next 

Set iignt and exposure levels 
lightLvl = CInt (Light .Text } 
exposeLvl - Expose. Text 
If exposeLvl - "South" Then 

exposeNo = 1 
Elself exposeLvl = "West" Then 

exposeNo = 1 
Elself exposeLvl = "Southeast" Then 

exposeNo = 2 
Elself exposeLvl = "Northwest" Then 
exposeNo = 3 
Jj Elself exposeLvl = "East" Then 

[| exposeNo = 4 

Elself exposeLvl = "North" Then 

exposeNo = 4 
Elself exposeLvl - "No windows" Then 
exposeNo = 5 

Else 

MsgBox "Input error, programs halts.", vbcritial + vbOKOnlv 
"Error!" Jr 
Exit Sub 
End If 

1 Initialize counters 
rowCount = 0 
colCount = 0 

Figure new range center 

rowCenter - Int(0.5 * lightLvl + 1.5) 
rowTop = rowCenter - 1 
rowBottom = rowCenter + 1 
colCenter = Int (exposeNo + 2) 
colLeft = colCenter - 2 
colRight = colCenter + 2 

Select cells and copy — > LitExp tab 
For colNumber - colLeft To colRight 
colCount = colCount +1 
For rowNumber - rowTop To rowBottom 
rowCount = rowCount + 1 
Sheets ("ActOcc") .Select 
Cells {rowNumber, colNumber) .Select 
Selection. Copy 
Sheets ("LitExp"} .Select 
Cells (rowCount, colCount) .Select 
ActiveSheet . Paste 

Next 

rowCount = 0 

Next 

* Spatial emphasis effects 

If Spatial. Text = "Large & Open" Then 
rowTop = 1 
rowBottom = 2 
colLeft = 1 
colRight = 3 

Elself Spatial. Text = "Large but Contained" Then 



rowTop = 1 
rowBottom = 2 
colLeft = 3 
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colRight = 5 
Elself Spatial. Text - "Small but Spacious" Then 

row Top- = 2 

rowBottom = 3 

cciLeft --- 1 

colRight = 3 
Elself Spatial. Text - "Small & Cozy" Then 

rowTop = 2 

rowBottom - 3 

colLeft - 3 

colRight = 5 

Else 

MsgBox "Input error, programs halts.", vbcritial + vbOKOnly, 

"Error!" 
Exit Sub 
End If 

' Initialize counters 
rowCount = 0 
colCount = 0 

' Select cells and copy — > RESULTS tab 
For colNumber = colLeft To colRight 
colCount = colCount + 1 
For rowNumber = rowTop To rowBottom 

rowCount = rowCount + 1 

Sheets ("LitExp") .Select 

Cells (rowNumber, colNumber) . Select 

Selection. Copy 

Sheets ( "RESULTS" ) . Select 

Cells (rowCount , colCount ). Sel ect 

ActiveSheet . Paste 

Next 

rowCount = 0 

Next 

' Present results 
UserForml . Hide 
UserForm3 . Show 

End Sub 

Private Sub Reset Button__Click {) 
T Reset form 

Color. Text = "Blue / Blue-Green / Blue-Violet Family" 

Activity .Text = "1" 

Occupancy .Text = "1" 

Light. Text = "1" 

Expose. Text = "South" 

Spatial. Text = "Large & Open" 
1 Reset worksheets 

Sheets ("ColorPref") .Select 

Range ("A1:Z10") .Clear 

Sheets ("ActOcc") .Select 

Range ("Al: 15"} .Clear 

Sheets ("LitExp") .Select 

Range ("A1;E3") .Clear 

Sheets ("RESULTS") .Select 

Range ("Al :C2") .Clear 
End Sub 

Private Sub UserForm_Ini tialize ( ) 

Color. List () - Array("Blue / Blue-Green / Blue-Violet Family", 

"Yellow / Yellow-Green / Yellow-Orange Family" , 

"Red / Red-Orange / Red-Violet Family") 
Activity. List () - Array("l", "2", "3", "4", "5", "6") 
Occupancy. List () =Array("l", "2", "3", "4", "5", "6") 
Light. ListO = Array("l", "2", "3", "4", "5") 

Expose. List () = Array { "South", "West", "Southeast", 4 
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"Northwest", "East", "North", "No windows") 

Spatial. List = Array ("Large & Open", "Large but Contained", 
"Small but Spacious", "Small & Cozy") 
' Reset Worksheets 

Sheets "ColorPref " ) .Select 

Range /"AI:Z10'M .Clear 

Sheets \ "ActOcc") .Select 

Range {"Ai: 15") .Clear 

Sheets ("Lit Exp") .Select 

Rangei"AI:E3"} .Clear 

Sheets { "RESULTS" ) .Select 

Range ("A1:C2") .Clear 
End Sub 



Private Sub UserForin_QueryClose (Cancel As Integer, CloseMode As Integer) 
If CloseMode = vbFormControlMenu Then 

MsgBox "You can't close this form like that.", vbOKOnly, "Error!" 
Cancel = True 
End If 
End Sub 
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' NorthStar CGS Splash Screen 

Private Sub UserForm_Act i vate ( } 

Application. OnTime Now + TimeValue { "00: 00; 03") , "KiliTheForm" 
End Sub 

i _vate Sub UserForm_QueryC2ose (Cancel As Integer, CloseMode As Integer) 
If CloseMode = vbFormControlMenu Then 

MsgBox "You can't close this form like that.", vbOKOnly, "Error 1 " 
Cancel - True 
End If 
End Sub 
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T Results presentation dialog box 
Private Sub ret urnBut t on__Cl ick ( } 

Unload UserFormS 

UserForml . Sho* 
F 4 Sub 

Private Sub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer) 
If CloseMode = vbFormControlMenu Then 

MsgBox "You can't close this form like that.", vbOKOnly, "Error?" 
Cancel = True 
End If 
End Sub 
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T About Box verbage 
Sub AboutlnfoO 

About 1$ = "NorthStar Color Guidance System" 

About2$ - "Version 1.00.10 BETA Build 315" 

About3$ - "Copyright 1999 NorthStar Marketing Co., LLC" 

About 4$ = "All rights reserved." 

AbouttitleS = "About this program..." 

MsgBox AboutlS & Chr$(13) & Chr$(13) & About2$ & ChrS(13) & 
About 3S & Chr$fl3) & About4$, vblnf ormation, AbouttitleS 

End Sub 
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Private Sub KillTheForm { } 
Unload UserForm2 
User Form! . Show 

End Sue 



m 

m 

m 

m 

m 
ui 

HI! 

Q 



Figure 10M 

EXPRESS MAIL NO. 6 9 4 9 0 3 6 1 5 



i 




1 




69490 9615 

wvr-ihSS i\iA»L NO. 



+ 4 » 





694909015 

EXPRESS MAIL NO 



